home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / COMPNENT / DTOOLS3 / DTOOLS3.ZIP / DEMOMISC.DFM / DEMOMISC.txt next >
Text File  |  1995-11-06  |  4KB  |  160 lines
  1. object MiscGadgets: TMiscGadgets
  2.   Left = 294
  3.   Top = 110
  4.   BorderIcons = [biMaximize]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Misc. Gadgets'
  7.   ClientHeight = 254
  8.   ClientWidth = 425
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   ShowHint = True
  16.   TextHeight = 16
  17.   object LEDLabel1: TLEDLabel
  18.     Left = 80
  19.     Top = 13
  20.     Width = 51
  21.     Height = 30
  22.     Hint = 
  23.       'This is a TLEDLabel component.  The caption property is being se' +
  24.       't automatically by the TRotaryKnob component.'
  25.     UnlitColor = 16384
  26.     Caption = '0'
  27.     Columns = 3
  28.   end
  29.   object PieMeter1: TPieMeter
  30.     Left = 145
  31.     Top = 7
  32.     Width = 45
  33.     Height = 45
  34.     Hint = 'This is a TPieMeter component.'
  35.     Completed = 0
  36.     Font.Color = clYellow
  37.     Font.Height = -13
  38.     Font.Name = 'System'
  39.     Font.Style = [fsBold]
  40.     ForeColor = clFuchsia
  41.     ParentFont = False
  42.     Percent = 0
  43.   end
  44.   object Image1: TImage
  45.     Left = 319
  46.     Top = 199
  47.     Width = 33
  48.     Height = 33
  49.     AutoSize = True
  50.     Picture.Data = {<image000.bmp>}
  51.     Visible = False
  52.   end
  53.   object NeatoMeter1: TNeatoMeter
  54.     Left = 8
  55.     Top = 60
  56.     Width = 185
  57.     Height = 57
  58.     Hint = 'This is a TNeatoMeter component.'
  59.     Completed = 0
  60.     Font.Color = clBlack
  61.     Font.Height = -13
  62.     Font.Name = 'System'
  63.     Font.Style = [fsBold]
  64.     ParentFont = False
  65.     Percent = 0
  66.   end
  67.   object Image2: TImage
  68.     Left = 8
  69.     Top = 192
  70.     Width = 183
  71.     Height = 55
  72.     AutoSize = True
  73.     Picture.Data = {<image001.bmp>}
  74.     Visible = False
  75.   end
  76.   object CheckBox2: TCheckBox
  77.     Left = 217
  78.     Top = 17
  79.     Width = 186
  80.     Height = 18
  81.     Hint = 
  82.       'Determines whether or not to display the Caption property on the' +
  83.       ' TPieMeter and TNeatoMeter components.'
  84.     Caption = 'Caption in Meters'
  85.     TabOrder = 0
  86.     OnClick = CheckBox2Click
  87.   end
  88.   object RotaryKnob1: TRotaryKnob
  89.     Left = 16
  90.     Top = 6
  91.     Width = 45
  92.     Height = 45
  93.     Hint = 'Turn the knob and the other gadgets will change!'
  94.     Control = LEDLabel1
  95.     Max = 100
  96.     Position = 0
  97.     OnChange = RotaryKnob1Change
  98.   end
  99.   object CheckBox3: TCheckBox
  100.     Left = 217
  101.     Top = 41
  102.     Width = 185
  103.     Height = 17
  104.     Hint = 
  105.       'Determines whether or not to display the Percent completed on th' +
  106.       'e TPieMeter and TNeatoMeter components.'
  107.     Caption = 'Show Percent in Meters'
  108.     State = cbChecked
  109.     TabOrder = 1
  110.     OnClick = CheckBox3Click
  111.   end
  112.   object RadioGroup1: TRadioGroup
  113.     Left = 208
  114.     Top = 72
  115.     Width = 201
  116.     Height = 121
  117.     Hint = 'Set TNeatoMeter bitmap display options.'
  118.     Caption = 'TNeatoMeter Bitmap Options'
  119.     ItemIndex = 0
  120.     Items.Strings = (
  121.       'Standard'
  122.       'Stretched Bitmap'
  123.       'Tiled Bitmap'
  124.       'Tiled Bitmap w/Invert')
  125.     TabOrder = 2
  126.     OnClick = RadioGroup1Click
  127.   end
  128.   object RadioGroup2: TRadioGroup
  129.     Left = 8
  130.     Top = 124
  131.     Width = 185
  132.     Height = 65
  133.     Hint = 
  134.       'Determines the direction TNeatoMeter will go to indicate progres' +
  135.       's.'
  136.     Caption = 'TNeatoMeter Direction'
  137.     Columns = 2
  138.     ItemIndex = 0
  139.     Items.Strings = (
  140.       'L->R'
  141.       'R->L'
  142.       'T->B'
  143.       'B->T')
  144.     TabOrder = 3
  145.     OnClick = RadioGroup2Click
  146.   end
  147.   object ShadowButton1: TShadowButton
  148.     Left = 168
  149.     Top = 210
  150.     Width = 89
  151.     Height = 33
  152.     Hint = 'Click me to make this window go away!'
  153.     Cancel = True
  154.     Caption = 'OK'
  155.     Default = True
  156.     ModalResult = 1
  157.     TabOrder = 4
  158.   end
  159. end
  160.